home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / biz / dopus / DOpusCFG.lha / DOpusCFG_020 / rexx / MakeIntoRollover < prev    next >
Encoding:
Text File  |  2000-12-03  |  917 b   |  30 lines
  1. /* Turn a normal file into an AFS Rollover file
  2.    Edited version by M. Rohles $VER: 1.1 (25.10.2000)
  3.  
  4.    Original by Kirk Strauser. (AMINET:disk/misc/RolloverTools.lha)*/
  5.  
  6. /*               Program-name / Found at            | Version | Configured Path+Name / misc
  7.                  ---------------------------------------------------------------------------
  8.    Requires:     PFS2/3, Rollover-Commands          | 1.2     | All commands should be copied
  9.                                                               | into C: Dir during PFS-Install
  10. */
  11.  
  12.  
  13.  
  14. if arg()=0 then do
  15.    say 'USAGE: MakeIntoRollover FILENAME/A SIZEINBLOCKS/N/A'
  16.    exit 10
  17.    end
  18.  
  19. parse arg fname size
  20.  
  21. address command
  22.  
  23. 'Copy 'fname' t:MakeIntoRollover.temp'
  24. 'Delete >NIL: 'fname
  25. 'MakeRollover 'fname' 'size
  26. 'echo "Adding data to Rollover file ... please wait ..."'
  27. 'Type >'fname' t:MakeIntoRollover.temp'
  28. 'Delete >NIL: t:MakeIntoRollover.temp'
  29.  
  30.